ON BREAK GOSUB Teflon

Main:
CLEAR:GOSUB Setup:CLOSE #1:CLOSE #2:CLOSE#3:rings=0:teetse=1
OPEN "com1:1200,n,8,1" AS 1 LEN=512:FOR ewan=1 TO 2000:NEXT ewan:PRINT#1,"ATX1"+CHR$(13):FOR ewan=1 TO 2000:NEXT ewan:PRINT#1,"ATS0=2 "+CHR$(13):FOR ewan=1 TO 2000:NEXT ewan
connect=0:ellen=0:DIM ABCS$(185):DIM TBL$(45):DIM Board$(9):r$=CHR$(13)+CHR$(10):switch=0:okp=1:DIM ScanM$(100):DIM Assi(42):GOSUB Select
Keepgoing:
IF switch=0 THEN GOTO Comm :ELSE GOTO Intro
GOTO Keepgoing

Setup:
SCREEN 2,640,200,2,2:WINDOW 2,"BBS1",,31
RETURN

Comm:
ltomr=0:x$="":latpr=0:rings=0
WHILE ltomr<2
  INPUT#1,x$:IF LEFT$(x$,4)="RING" THEN ltomr=ltomr+1
WEND
effer=0:rings=1:x$="":a$=r$+"Press Return:":PRINT a$:PRINT#1,a$:x$="":effer=0:lester=0
MoreComm:
WHILE lester<1500
  WHILE LOC(1)<>0
    INPUT#1,x$:IF LEFT$(x$,7)="CONNECT" AND LEFT$(x$,12)<>"CONNECT 1200" THEN effer=3:lester=1500 
    IF LEFT$(x$,12)="CONNECT 1200" THEN effer=5:lester=1500
  WEND
  lester=lester+1
WEND
IF effer=5 THEN FinalComm
IF effer=3 THEN OtherFinalComm 
UserID=0:rings=0:effer=0:GOTO Cleanup
FinalComm:
UserID=0:a$=r$+"Please Press Return:":GOSUB A1:IF LEN(t$)>5 THEN Cleanup
a$=r$+"That felt good. Press return again:":GOSUB A1:GOTO Intro  
OtherFinalComm:
CLOSE#1:OPEN "com1:300,n,8,1" AS 1 LEN=512
UserID=0:a$=r$+"Please Press Return:":GOSUB A1:IF LEN(t$)>5 THEN Cleanup
a$=r$+"That felt good. Press return again:":GOSUB A1:GOTO Intro

Intro:
IF rings=0 THEN PRINT#1,"ATS0=0"+CHR$(13)
IF rings=0 THEN CLOSE#1
a$=r$+r$+r$+r$:GOSUB Modem:a$="Welcome"+r$:GOSUB Modem
a$="      to"+r$:GOSUB Modem:a$="        AmigaAtlanta"+r$:GOSUB Modem:a$="        BBS"+r$:GOSUB Modem
a$=r$+r$+r$:GOSUB Modem:a$="Enter your First Name: ":GOSUB A1:Name1$=UCASE$(LEFT$(t$,LEN(t$)-1)):IF LEN(Name1$)>9 THEN Name1$=LEFT$(Name1$,9)
a$=r$+"Enter your Last Name: ":GOSUB A1:Name2$=UCASE$(LEFT$(t$,LEN(t$)-1)):IF LEN(Name2$)>15 THEN Name2$=LEFT$(Name2$,15)
UsernaMe$=Name1$+" "+Name2$+"=":UsernaMe=LEN(UsernaMe$):Ddt=0:Dch=0
WHILE Ddt<1
  Dch=Dch+1:uil$=STR$(Dch):uil$=RIGHT$(uil$,1)
  OPEN "I",#3,"df1:Storehouse"+uil$:Dxq=0:Lmn=0:Dab=0
  WHILE NOT EOF(3)
    Dxq=Dxq+1:LINE INPUT#3, ABCS$(Dxq)
  WEND
  Dzz=0
  WHILE Lmn<1
    Dzz=Dzz+1:IF UsernaMe$=LEFT$(ABCS$(Dzz),UsernaMe) THEN Lmn=5:Dab=Dzz
    IF Dzz=Dxq AND Lmn<>5 THEN Lmn=2
  WEND
  IF Lmn=5 THEN Ddt=5:UserID$=RIGHT$(ABCS$(Dab),LEN(ABCS$(Dab))-UsernaMe)
  IF Lmn=2 AND Dch=6 THEN Ddt=3
  CLOSE#3
WEND
IF Ddt=3 THEN NewUser
a$="Enter your Password: ":GOSUB A1:Password$=UCASE$(LEFT$(t$,LEN(t$)-1))
GOSUB CheckUser:CHAIN "df0:Menus",,ALL

Select:
CLS:PRINT "Date:"+DATE$+"  Time:"+TIME$
PRINT:PRINT:PRINT "          ______________________________________________  "
PRINT "          |                                            |"
PRINT "          |            (U)se System                    |"
PRINT "          |            (T)urn on Carrier               |"
PRINT "          |____________________________________________| "
PRINT 
INPUT "             U,T, or (Q)uit >",Select$:Select$=UCASE$(Select$)
IF Select$="U" THEN switch=1:GOTO Intro
IF Select$="T" THEN CLS:RETURN
CLS:CLOSE 1:WINDOW CLOSE 2:x=FRE(0):PRINT x:END

Modem:
IF rings=0 THEN OtherModem
x=FRE(0):FOR j= 1 TO LEN(a$):P$=MID$(a$,j,1)
PRINT P$;:PRINT#1,P$;:NEXT j:a$="":P$="":RETURN

OtherModem:
x=FRE(0):FOR j= 1 TO LEN(a$):P$=MID$(a$,j,1)
PRINT P$;:NEXT j:a$="":P$="":RETURN

Answers:
telly=0:t$="":t=0:i$="":ch$="":alter=0:IF rings=0 THEN SomeAnswers
WHILE 1 AND alter<1
  WHILE LOC(1)<>0
    ch$=INPUT$(1,1)
    equivs=ASC(ch$) AND 127:IF equivs<>1 THEN ch$=CHR$(equivs)
    i$=i$+ch$:equivs=0:connect=PEEK (&Hbfd*&H1000+&H0):IF connect<>0 THEN Cleanup
    telly=telly+1:IF telly=78 THEN ch$=r$:telly=0
    IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2):telly=telly-2
    IF ch$=CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN alter=3:telly=0
    a$=ch$:GOSUB Modem:ch$=""
  WEND
  ch$=INKEY$:i$=i$+ch$
  a$=ch$:GOSUB Modem
  IF ch$=CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN telly=0:alter=3
  IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2):telly=telly-2
  ch$="":connect=PEEK (&Hbfd*&H1000+&H0):IF connect<>0 THEN Cleanup
WEND
IF i$<>"" THEN MoreAnswers
SomeAnswers:
ch$=INKEY$:i$=i$+ch$:a$=ch$:GOSUB Modem
IF ch$= CHR$(10) OR ch$=CHR$(13) OR ch$=r$ THEN MoreAnswers
IF ch$=CHR$(8) AND LEN(i$)>=2 THEN i$=LEFT$(i$,LEN(i$)-2)
ch$=""
GOTO SomeAnswers
MoreAnswers:
IF i$="" THEN ch$="":GOTO Answers
t$=i$:IF LEN(t$)>80 THEN t$=LEFT$(t$,78)+r$
RETURN

NewUser:
a$=r$+"To use this board you must be a Registered User."+r$:GOSUB Modem
a$="Do you want to register (Y/N)?":GOSUB A1:Register$=UCASE$(LEFT$(t$,1))
IF Register$<>"Y" THEN UserID=0:GOTO Cleanup
a$=r$+r$+"Enter your First Name: ":GOSUB A1:Name1$=UCASE$(LEFT$(t$,LEN(t$)-1)):a$=r$+"Enter your Last Name:":GOSUB A1:Name2$=UCASE$(LEFT$(t$,LEN(t$)-1))
a$=r$+"What type of Computer: ":GOSUB A1:Computer$=UCASE$(t$)
a$=r$+"Street Address: ":GOSUB A1:Address$=UCASE$(t$)
a$=r$+"City: ":GOSUB A1:City$=UCASE$(t$):a$=r$+"State:":GOSUB A1:State$=UCASE$(t$)
PassUser:
a$=r$+"4 to 9 letter Password you want to use: ":GOSUB A1:Password$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF LEN(Password$)<4 OR LEN(Password$)>9 THEN PassUser
a$=r$+"OK, one last question-":GOSUB Modem:a$=r$+"Age: ":GOSUB A1:Age$=t$
MoreUser:
a$=r$+r$+r$:GOSUB Modem:a$="1) First Name: "+Name1$+r$:GOSUB Modem:a$="2) Last Name: "+Name2$+r$:GOSUB Modem
a$="3) Computer: "+Computer$+r$:GOSUB Modem:a$="4) Address: "+Address$+r$:GOSUB Modem
a$="5) City: "+City$+r$:GOSUB Modem:a$="6) State: "+State$+r$:GOSUB Modem:a$="7) Age: "+Age$+r$:GOSUB Modem
a$="8) Password: "+Password$+r$:GOSUB Modem
a$=r$+r$+"Change 1-8 (OR 0 TO continue): ":GOSUB A1
t=VAL(LEFT$(t$,2)):IF t<1 OR t>8 THEN EnterUser
IF t=1 THEN a$=r$+"First Name:":GOSUB A1:Name1$=UCASE$(LEFT$(t$,LEN(t$)-1)):GOTO MoreUser
IF t=2 THEN a$=r$+"Last Name:":GOSUB A1:Name2$=UCASE$(LEFT$(t$,LEN(t$)-1)):GOTO MoreUser
IF t=3 THEN a$=r$+"Computer:":GOSUB A1:Computer$=UCASE$(t$):GOTO MoreUser
IF t=4 THEN a$=r$+"Street Address:":GOSUB A1:Address$=UCASE$(t$):GOTO MoreUser
IF t=5 THEN a$=r$+"City:":GOSUB A1:City$=UCASE$(t$):GOTO MoreUser
IF t=6 THEN a$=r$+"State:":GOSUB A1:State$=UCASE$(t$):GOTO MoreUser
IF t=7 THEN a$=r$+"Age:":GOSUB A1:Age$=t$:GOTO MoreUser
PassMoreUser:
IF t=8 THEN a$=r$+"Password:":GOSUB A1:Password$=UCASE$(LEFT$(t$,LEN(t$)-1))
IF LEN(Password$)<4 OR LEN(Password$)>9 THEN PassMoreUser
GOTO MoreUser
EnterUser:
a$=r$+r$+r$+"Writing data. Please wait..."+r$:GOSUB Modem
CLOSE#2:OPEN "R", #2, "df1:USER",120
FIELD #2, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #2, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
Ddd=0:Dch=0
WHILE Dch<1
  Ddd=Ddd+1:GET#2,Ddd:IF check$<>"P" THEN Dch=1
WEND
UserID=Ddd:UserID$=STR$(UserID):UserID$=RIGHT$(UserID$,LEN(UserID$)-1):uil$=""
IF UserID>=1 AND UserID<=185 THEN uil$="1"
IF UserID>=186 AND UserID<=370 THEN uil$="2"
IF UserID>=371 AND UserID<=555 THEN uil$="3"
IF UserID>=556 AND UserID<=740 THEN uil$="4"
IF UserID>=741 AND UserID<=925 THEN uil$="5"
IF UserID>=926 AND UserID<=1000 THEN uil$="6"
IF UserID>1000 THEN a$=r$+"Sorry, no room at the Inn."+r$+"Leave a note in Feedback, and I'll try to set you up later."+r$:GOSUB Modem:N1$="guest":GOTO Guestuser
OPEN "A",#3,"df1:Storehouse"+uil$
PRINT#3,Name1$+" "+Name2$+"="+UserID$
CLOSE#3:GET#2,UserID
LSET check$="P":LSET N1$=Name1$:LSET N2$=Name2$:LSET Co$=Computer$:LSET Adr$=Address$:LSET CI$=City$
LSET STA$=State$:LSET AG$=Age$:LSET PAS$=Password$:LSET B1$="000":LSET B2$="000":LSET B3$="000"
LSET B4$="000":LSET B5$="000":LSET B6$="000":LSET B7$="000":LSET B8$="000":LSET B9$="000"
LSET EM1$="0":LSET EM2$="0":LSET EM3$="0":LSET EM4$="0":LSET EM5$="0"
LSET Valu$="000":LSET Vte1$="0":LSET Vte2$="0":LSET Vte3$="0"
PUT#2, UserID:CLOSE#2:Veru$="000":FOR j=1 TO 9:Board$(j)="000":NEXT j
j=0:FOR j=1 TO 5:EMail$(j)="0":NEXT j
Altes$(1)="0":Altes$(2)="0":Altes$(3)="0"
a$="Your User ID is:"+UserID$+r$:GOSUB Modem
a$=" You should be validated in 24 hours."+r$:GOSUB Modem
a$=r$+"Press Return to continue:":GOSUB A1:CHAIN "df0:Menus",,ALL

CheckUser:
CLOSE#2:OPEN "R", #2, "df1:USER",120
FIELD #2, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #2, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
UserID=VAL(UserID$):GET#2,UserID
PAS$=LEFT$(PAS$,LEN(Password$)):IF LEN(Password$)<3 THEN okp=0:CLOSE#2:RETURN
IF Password$<>PAS$ THEN okp=0:CLOSE#2:RETURN
Name1$=N1$:Name2$=N2$:Computer$=Co$:Address$=Adr$:City$=CI$:State$=STA$:Age$=AG$:Password$=PAS$:Veru$=Valu$:Board$(1)=B1$:Board$(2)=B2$:Board$(3)=B3$
Board$(4)=B4$:Board$(5)=B5$:Board$(6)=B6$:Board$(7)=B7$:Board$(8)=B8$:Board$(9)=B9$:EMail$(1)=EM1$:EMail$(2)=EM2$:EMail$(3)=EM3$:EMail$(4)=EM4$:EMail$(5)=EM5$
Altes$(1)=Vte1$:Altes$(2)=Vte2$:Altes$(3)=Vte3$
okp=1:CLOSE#2:eM=0
FOR j=1 TO 5:IF EMail$(j)="1" THEN eM=eM+1:NEXT j
a$=r$+"You have "+STR$(eM)+" piece(s) of mail."+r$:GOSUB Modem
RETURN

A1:
GOSUB Modem:GOSUB Answers:RETURN

Cleanup:
10 a$=r$+"Thank you for calling AmigaAtlanta!"+r$:GOSUB Modem
CLOSE#3:CLOSE#2:IF UserID=0 OR UserID=1001 THEN MoreCleanup
CLOSE#2:OPEN "R", #2, "df1:USER",120
FIELD #2, 1 AS check$,9 AS N1$,15 AS N2$,10 AS Co$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
FIELD #2, 117 AS dump$,1 AS Vte1$,1 AS Vte2$,1 AS Vte3$
GET#2, UserID
LSET PAS$=Password$:LSET B1$=Board$(1):LSET B2$=Board$(2):LSET B3$=Board$(3):LSET B4$=Board$(4):LSET B5$=Board$(5)
LSET B6$=Board$(6):LSET B7$=Board$(7):LSET B8$=Board$(8):LSET B9$=Board$(9):LSET EM1$=EMail$(1):LSET EM2$=EMail$(2)
LSET EM3$=EMail$(3):LSET EM4$=EMail$(4):LSET EM5$=EMail$(5)
LSET Vte1$=Altes$(1):LSET Vte2$=Altes$(2):LSET Vte3$=Altes$(3)
PUT#2,UserID:CLOSE#2
MoreCleanup:
CLOSE#1:FOR ewan=1 TO 2000:NEXT ewan
OPEN "com1:1200,n,8,1" AS 1 LEN=512:PRINT#1,"+++ ":FOR ewan=1 TO 2000:NEXT ewan
FOR ewan=1 TO 2000:NEXT ewan:PRINT#1,"ATZ"+CHR$(13):FOR ewan=1 TO 4000:NEXT ewan
connect=PEEK(&Hbfd*&H1000+&H0):IF connect<>40 AND connect<>232 THEN MoreCleanup
PRINT#1,"ATC1 "+CHR$(13):FOR ewan=1 TO 2000:NEXT ewan:FOR ewan=1 TO 2000:NEXT ewan:PRINT#1,"ATS0=2 "+CHR$(13):FOR ewan=1 TO 2000:NEXT ewan
FOR ewan=1 TO 2000:NEXT ewan:PRINT#1,"ATX1 "+CHR$(13):FOR ewan=1 TO 2000:NEXT ewan
connect=0:ellen=0:switch=0:okp=1:UserID=0:Password$="":Veru$="000"
GOTO Keepgoing

Guestuser:
UserID=1001:UserID$="1001":Name1$="GUEST":Name2$="GUEST":eM=0:Password$="GUEST":Veru$="000"
FOR j=1 TO 5:EMail$(j)="0":NEXT j:CHAIN "df1:Menus",,ALL

Teflon:
IF teetse=1 THEN a$=r$+"Sorry, not allowed!":GOSUB Modem:okp=1:RETURN
IF teetse=0 THEN ltomr=1:teetse=1:RETURN
RETURN